import System.IO
import Database.HDBC.Sqlite3 (connectSqlite3)
import Database.HDBC
import System.Directory (getHomeDirectory)

--todo:
--1) Add sqlite3 part
--2) Add command line options parser


main = handleSqlError $ do
			conn <- connectSqlite3 "/home/george/.journal.db"
			tables <- getTables conn 
			testTables tables conn
			commit conn
			disconnect conn

testTables [] conn = startUp conn
testTables _ conn = exec conn

startUp conn = putStrLn "Db created"

exec conn = putStrLn "Db created"


